PGRP/CEGIS COVID-19 Monitoring Dashboard

Food security

## Warning: package 'ggplot2' was built under R version 3.6.3
## Warning: package 'purrr' was built under R version 3.6.3
## Warning: package 'dplyr' was built under R version 3.6.3
## Warning: package 'foreign' was built under R version 3.6.3
## Warning: package 'plotly' was built under R version 3.6.3
## Warning: package 'sf' was built under R version 3.6.2
## Warning: package 'DT' was built under R version 3.6.3

Column

Bottom 20 mandals

db20 <-  db[order(db$food),]
db20 <-  db20 %>% top_n(-20)
## Selecting by food
bpf <- ggplot(data = db20, mapping = aes(x = reorder(mandalname, -food), food)) + 
        geom_bar(stat = "identity", fill = "steelblue") +
        theme(axis.title.y = element_blank(),
              axis.title.x = element_blank(),
              panel.grid.major = element_blank(), 
              panel.grid.minor = element_blank()) +
        coord_flip() + ggtitle("% able to access food")
bpf <- bpf + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
                   panel.background = element_blank(), axis.line = element_line(colour = "black"))
ggplotly(bpf)

All mandals

DT::datatable(db[, c("mandalname", "food")],
              rownames = FALSE, 
              colnames = c('Mandal', '% able to access food'),
              options = list(pageLength = 10)
)

Column

Interactive map